Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/compile.sc

Text File | 1993-07-16 | 10KB | 1 lines

(dependencies (standard0 list-fns comp-utl syntax pass-0 gen-code iface output out-fast rshow stop) names (compile) length 2078 nslots 15 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 110)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 25)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 40)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 23)) (5 (%%-me-local--%% . comp2sc)) (3 0) (39) (8 0) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 24)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 1856)) (11) (4 (%%-static-%% . 0)) (5 (%%-big-arg-%% 0)) (39) (51 1) (7 (%%-me-local--%% . get-module-body)) (36 (%%-big-arg-%% 85)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% errors . <condition-class>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 2)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (1 (%%-link-me-%% errors . <condition>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 4)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . Compiler-Error)) (3 0) (7 (%%-me-local--%% . compile-time-failure)) (36 (%%-big-arg-%% 1538)) (11) (4 (%%-static-%% . 0)) (6 1) (39) (51 1) (7 (%%-me-local--%% . compile-2-ast)) (36 (%%-big-arg-%% 1369)) (11) (4 (%%-static-%% . 0)) (6 2) (39) (51 1) (7 (%%-me-local--%% . my-handler)) (36 (%%-big-arg-%% 529)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 8)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 10)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 12)) (3 0) (39) (29) (4 (%%-static-%% . 13)) (3 0) (39) (29) (4 (%%-static-%% . 14)) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 15)) (3 0) (39) (9) (1 (%%-link-me-%% mod-info . Module-State-Error)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 16)) (3 0) (39) (29) (36 (%%-big-arg-%% 1065)) (8 14) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (9) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 15)) (3 0) (39) (9) (1 (%%-link-me-%% syntax . Syntax-Error)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 16)) (3 0) (39) (29) (36 (%%-big-arg-%% 869)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 15)) (3 0) (39) (9) (1 (%%-link-me-%% gen-code . Compile-Time-Error)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 16)) (3 0) (39) (29) (36 (%%-big-arg-%% 651)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 15)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 16)) (3 0) (39) (29) (36 (%%-big-arg-%% 553)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 20)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . compile-time-error-handler)) (3 0) (7 (%%-me-local--%% . x)) (3 0) (7 (%%-me-local--%% . y)) (3 0) (7 (%%-me-local--%% . a)) (36 (%%-big-arg-%% 436)) (11) (4 (%%-static-%% . 0)) (6 3) (39) (51 1) (7 (%%-me-local--%% . comp2sc)) (36 (%%-big-arg-%% 394)) (11) (4 (%%-static-%% . 0)) (6 4) (39) (51 1) (7 (%%-me-local--%% . comp2rawsc)) (36 (%%-big-arg-%% 183)) (11) (4 (%%-static-%% . 0)) (6 5) (39) (51 2) (7 (%%-me-local--%% . comp2sc-aux)) (4 (%%-static-%% . 21)) (7 (%%-me-local--%% . *raw-mods*)) (36 (%%-big-arg-%% 92)) (11) (4 (%%-static-%% . 0)) (6 6) (39) (51 0) (7 (%%-me-local--%% . compile-boot-modules)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 0)) (6 7) (39) (51 1) (7 (%%-me-local--%% . compile-module)) (18) (3 1) (37) (10) (4 (%%-me-local--%% . *raw-mods*)) (49) (32 (%%-big-arg-%% 22)) (18) (4 (%%-me-local--%% . comp2rawsc)) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 272)) (18) (4 (%%-me-local--%% . comp2sc)) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 276)) (36 (%%-big-arg-%% 29)) (1 (%%-link-me-%% init . mapc)) (4 (%%-me-local--%% . comp2rawsc)) (4 (%%-me-local--%% . *raw-mods*)) (3 0) (12) (34 -3) (18) (1 (%%-link-me-%% init . mapc)) (4 (%%-me-local--%% . comp2sc)) (4 (%%-static-%% . 22)) (3 0) (12) (14 6 4) (9) (13 5) (34 -3) (22 2) (11) (20 0 0) (10) (20 0 1) (1 (%%-link-me-%% calls . simple-call/cc)) (36 (%%-big-arg-%% 14)) (12) (40 1) (14 5 2) (62 1) (37) (1 (%%-link-me-%% calls . push-handler)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . my-handler)) (8 5) (10) (26) (31 (%%-big-arg-%% 512)) (62 1) (18) (36 (%%-big-arg-%% 21)) (4 (%%-me-local--%% . compile-2-ast)) (12) (19 0 0) (3 0) (31 (%%-big-arg-%% 636)) (9) (26) (10) (27) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% output . output-sc-state)) (8 4) (8 4) (8 8) (19 0 1) (12) (34 3) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% iface . write-interface-file)) (8 5) (10) (34 1) (18) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% out-fast . write-fastbytes)) (12) (10) (34 1) (18) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% output . write-compile-unit)) (12) (10) (34 1) (18) (15 4) (1 (%%-link-me-%% calls . pop-handler)) (62 0) (18) (15 3) (37) (4 (%%-me-local--%% . comp2sc-aux)) (11) (3 0) (11) (14 6 3) (9) (13 4) (26) (31 (%%-big-arg-%% -206)) (4 (%%-me-local--%% . comp2sc-aux)) (11) (3 1) (11) (14 6 3) (9) (13 4) (26) (31 (%%-big-arg-%% -227)) (17 3) (3 0) (37) (36 (%%-big-arg-%% 85)) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% extras0 . format)) (3 1) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% standard0 . slot-value)) (8 10) (4 (%%-static-%% . 17)) (11) (34 2) (3 0) (39) (9) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% standard0 . slot-value)) (8 12) (4 (%%-static-%% . 18)) (11) (34 2) (3 0) (39) (29) (18) (12) (34 -3) (18) (3 1) (9) (7 (%%-me-local--%% . compile-time-failure)) (18) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 19)) (4 (%%-me-local--%% . Compiler-Error)) (3 0) (12) (14 8 4) (9) (13 5) (34 -3) (36 (%%-big-arg-%% 85)) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% extras0 . format)) (3 1) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% standard0 . slot-value)) (8 10) (4 (%%-static-%% . 17)) (11) (34 2) (3 0) (39) (9) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% standard0 . slot-value)) (8 12) (4 (%%-static-%% . 18)) (11) (34 2) (3 0) (39) (29) (18) (12) (34 -3) (18) (3 1) (9) (7 (%%-me-local--%% . compile-time-failure)) (17 2) (15 2) (9) (13 2) (33 0) (36 (%%-big-arg-%% 85)) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% extras0 . format)) (3 1) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% standard0 . slot-value)) (8 10) (4 (%%-static-%% . 17)) (11) (34 2) (3 0) (39) (9) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% standard0 . slot-value)) (8 12) (4 (%%-static-%% . 18)) (11) (34 2) (3 0) (39) (29) (18) (12) (34 -3) (18) (3 1) (9) (7 (%%-me-local--%% . compile-time-failure)) (17 2) (15 2) (9) (13 2) (33 0) (22 1) (10) (20 0 0) (36 (%%-big-arg-%% 11)) (11) (40 2) (15 3) (37) (36 (%%-big-arg-%% 34)) (1 (%%-link-me-%% streams . flush)) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% extras0 . standard-error-stream)) (9) (33 0) (10) (33 1) (18) (36 (%%-big-arg-%% 34)) (1 (%%-link-me-%% streams . flush)) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% extras0 . standard-output-stream)) (9) (33 0) (10) (33 1) (18) (1 (%%-link-me-%% classes . class-of)) (12) (62 1) (4 (%%-me-local--%% . Compiler-Error)) (43) (32 (%%-big-arg-%% 16)) (9) (19 0 0) (15 3) (9) (13 3) (33 1) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 7)) (3 0) (12) (14 8 4) (9) (13 5) (34 -3) (3 0) (9) (7 (%%-me-local--%% . compile-time-failure)) (18) (1 (%%-link-me-%% calls . push-handler)) (4 (%%-me-local--%% . compile-time-error-handler)) (62 1) (18) (36 (%%-big-arg-%% 36)) (1 (%%-link-me-%% syntax . translate)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . get-module-body)) (8 7) (10) (26) (31 (%%-big-arg-%% 143)) (10) (34 1) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% pass-0 . annotate-tree)) (12) (10) (34 1) (18) (4 (%%-me-local--%% . compile-time-failure)) (32 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 5)) (3 0) (12) (34 -3) (18) (36 (%%-big-arg-%% 29)) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 6)) (4 (%%-me-local--%% . Compiler-Error)) (3 0) (12) (34 -3) (31 (%%-big-arg-%% 33)) (9) (9) (7 (%%-me-local--%% . y)) (18) (9) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% gen-code . generate-code)) (12) (10) (34 1) (39) (15 2) (1 (%%-link-me-%% calls . pop-handler)) (62 0) (18) (15 3) (37) (22 1) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% comp-utl . get-module-stream)) (8 4) (10) (34 1) (10) (16) (20 0 0) (18) (1 (%%-link-me-%% calls . fn-unwind-protect)) (36 (%%-big-arg-%% 43)) (12) (40 0) (36 (%%-big-arg-%% 15)) (8 4) (40 0) (14 5 3) (62 2) (37) (1 (%%-link-me-%% streams1 . close)) (10) (19 0 0) (13 2) (9) (13 3) (33 1) (1 (%%-link-me-%% streams . read)) (10) (19 0 0) (14 3 2) (62 1) (37)) statics (compile name Compiler-Error direct-superclasses direct-slot-descriptions "Compile failed. Abandoning...~%" "Compiler-Error" "A compiler error has occured" compile-time-error-handler lambda-list (cond cont) method-class argtype 2 methods signature function msg values "Compiler Failure" domain (boot-utils newinit initmeth) (boot macros0 extras0 defs semaphores standard0) (comp2sc) ((strip (union (import standard0) (import list-fns) (import comp-utl) (import syntax) (import pass-0) (import gen-code) (import iface) (import output) (import out-fast) (import rshow) (import stop))) comp2sc) compile))